****
** Replication File:
**
** “Are Republicans and Conservatives More Likely 
** to Believe Conspiracy Theories?”
**
** Adam Enders, Christina Farhart, Joanne Miller,
** Joseph Uscinski, Kyle Saunders, and Hugo Drochon
**
** Analyses conducted in Stata/SE 15.1
****

* Set working directory

********************************************************************************

****
** October 2012 CCES
****

use "CCES 2012.dta"


* Conspiracy thinking
factor con1-con4, ipf
alpha con1-con4, gen(conthink)


* Operational ideology
irt hybrid (2pl legalstatus borderpatrol gaymarriage) ///
	(grm guncontrol abortion environment affirmativeaction)
predict operational, latent
	

* Correlations
sem (<- conthink pid) [pweight=weight], standardize 
sem (<- conthink ideo) [pweight=weight], standardize
sem (<- conthink operational) [pweight=weight], standardize


clear

********************************************************************************

****
** July 2016 SSI
****

use "SSI 2016.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4

* Operational ideology
factor minwage muslimban deportundoc transbath banassault ///
	tariffchina govspend freetrade hcreform, ipf
factor minwage muslimban deportundoc transbath banassault ///
	govspend freetrade hcreform, ipf
alpha minwage muslimban deportundoc transbath banassault ///
	govspend freetrade hcreform, gen(operational)

* Correlations
sem (<- consthink pid), standardize 
sem (<- consthink ideo), standardize
sem (<- consthink operational), standardize

clear

********************************************************************************

****
** October 2016 CCES (1)
****

use "CCES 2016 1.dta"


* Conspiratorial thinking
factor con1-con4, ipf
alpha con1-con4, gen(conthink)


* Operational ideology
factor guncontrol abortion legalstatus borderpatrol ///
	gaymarriage environment, ipf
alpha guncontrol abortion legalstatus borderpatrol ///
	gaymarriage environment

irt hybrid (2pl legalstatus borderpatrol gaymarriage environment) ///
	(grm guncontrol abortion)
predict operational, latent


* Correlations
sem (<- conthink pid) [pweight=weight], standardize 
sem (<- conthink ideo) [pweight=weight], standardize
sem (<- conthink operational) [pweight=weight], standardize

clear

********************************************************************************

****
** October 2016 CCES (2)
****

use "CCES 2016 2.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4, gen(conthink)


* Operational ideology
factor guncontrol abortion legalstatus borderpatrol ///
	gaymarriage environment, ipf
alpha guncontrol abortion legalstatus borderpatrol ///
	gaymarriage environment

irt hybrid (2pl legalstatus borderpatrol gaymarriage environment) ///
	(grm guncontrol abortion)
predict operational, latent


* Correlations
sem (<- conthink pid7) [pweight=weight], standardize 
sem (<- conthink ideo7) [pweight=weight], standardize
sem (<- conthink operational) [pweight=weight], standardize

clear

********************************************************************************

****
** October 2018 CCES (1)
****

use "CCES 2018 1.dta"


* Conspiracy thinking
factor con1-con4, ipf
alpha con1-con4, gen(conthink)

* Operational ideology
factor legalstatus2 borderpatrol2 medicareforall ///
	guncontrol abortion, ipf
alpha legalstatus2 borderpatrol2 medicareforall ///
	guncontrol abortion

irt hybrid (2pl legalstatus2 borderpatrol2 medicareforall) ///
	(grm guncontrol abortion)
predict operational, latent

* Correlations
sem (<- conthink pid) [pweight=weight], standardize 
sem (<- conthink ideo) [pweight=weight], standardize
sem (<- conthink operational) [pweight=weight], standardize

clear

********************************************************************************

****
** October 2018 CCES (2)
****

use "CCES 2018 2.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4, gen(conthink)


* Operational ideology
factor legalstatus2 borderpatrol2 medicareforall ///
	guncontrol abortion, ipf
alpha legalstatus2 borderpatrol2 medicareforall ///
	guncontrol abortion

irt hybrid (2pl legalstatus2 borderpatrol2 medicareforall) ///
	(grm guncontrol abortion)
predict operational, latent


* Correlations
sem (<- conthink pid7) [pweight=teamweight], standardize 
sem (<- conthink ideo7) [pweight=teamweight], standardize
sem (<- conthink operational) [pweight=teamweight], standardize

clear

********************************************************************************

****
** October 2018 CCES (3)
****

use "CCES 2018 3.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4, gen(conthink)

* Operational ideology
factor legalstatus2 borderpatrol2 medicareforall ///
	guncontrol abortion, ipf
alpha legalstatus2 borderpatrol2 medicareforall ///
	guncontrol abortion

irt hybrid (2pl legalstatus2 borderpatrol2 medicareforall) ///
	(grm guncontrol abortion)
predict operational, latent


* Correlations
sem (<- conthink pid) [pweight=teamweight], standardize 
sem (<- conthink ideo) [pweight=teamweight], standardize
sem (<- conthink operational) [pweight=teamweight], standardize

clear


********************************************************************************

****
** March 2019 Lucid
****

use "Lucid 2019.dta"

* Conspiratorial thinking
factor con1-con5, ipf
alpha con1-con5, gen(conthink) 


* Operational ideology
factor blacksHelp taxes wall prefhiring, ipf factor(1)
predict operational


* Correlations
sem (<- conthink pid), standardize 
sem (<- conthink ideo), standardize
sem (<- conthink operational), standardize

clear


********************************************************************************

****
** July 2019 Qualtrics (1)
****

use "Qualtrics 2019 1.dta"

* Conspiratorial thinking
factor con1-con4, ipf
alpha con1-con4, gen(conthink)

* Correlations
sem (<- conthink pid), standardize 
sem (<- conthink ideo), standardize

clear

********************************************************************************

****
** November 2019 NORC
****

use "NORC 2019.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4

* Correlations
sem (<- consthink pid) [pweight=WEIGHT], standardize 
sem (<- consthink ideo) [pweight=WEIGHT], standardize

clear

********************************************************************************

****
** September 2019 Qualtrics (2)
****

use "Qualtrics 2019 2.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4

* Correlations
sem (<- consthink pid), standardize 
sem (<- consthink ideo), standardize

clear


********************************************************************************

****
** January 2020 Lucid
****

use "Lucid Jan 2020.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4, gen(conthink)

* Correlations
sem (<- conthink pid), standardize 
sem (<- conthink ideo), standardize

clear


********************************************************************************

****
** February 2020 Qualtrics
****

use "Qualtrics Feb 2020.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4

* Correlations
sem (<- consthink pid7), standardize 
sem (<- consthink ideo7), standardize

clear


********************************************************************************

****
** March 2020 Qualtrics
****

use "Qualtrics March 2020.dta"


* Conspiracy thinking
factor con1-con4, ipf
alpha con1-con4, gen(conthink)


* Correlations
sem (<- conthink pid), standardize 
sem (<- conthink ideo), standardize

clear


********************************************************************************

****
** April 2020 Lucid WRONG
****

use "Lucid April 2020.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4

* Correlations
sem (<- consthink pid7), standardize 
sem (<- consthink ideo7), standardize

clear


********************************************************************************

****
** June 2020 Qualtrics
****

use "Qualtrics June 2020.dta"


* Conspiratorial thinking
factor con1-con4, ipf
alpha con1-con4, gen(conthink)


* Correlations
sem (<- conthink pid), standardize 
sem (<- conthink ideo), standardize

clear


********************************************************************************

****
** October 2020 Qualtrics
****

use "Qualtrics Oct 2020.dta"


* Conspiratorial thinking
factor con1-con4, ipf
alpha con1-con4


* Correlations
sem (<- conthink pid), standardize 
sem (<- conthink ideo), standardize

clear


********************************************************************************

****
** May 2021 Qualtrics
****

use "Qualtrics 2021.dta"

* Conspiracy thinking
factor con1-con4, ipf
alpha con1-con4


* Correlations
sem (<- conthink pid), standardize 
sem (<- conthink ideo), standardize

clear

